home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LSC HYPER XCMD.cpt / Flash.c next >
Encoding:
C/C++ Source or Header  |  1987-11-03  |  735 b   |  35 lines  |  [TEXT/KAHL]
  1. /*
  2.     CFlash -- a sample HyperCard user-defined command in C.
  3.     ©Apple Computer, Inc. 1987
  4.     All Rights Reserved.
  5. */
  6.  
  7. #include <Types.h>
  8. #include <MemoryMgr.h>
  9. #include <OSUtil.h>
  10. #include <QuickDraw.h>
  11. #include "XCmd.h"
  12.  
  13. /* **** WARNING:  DO NOT USE GLOBAL VARIABLES! **** */
  14.  
  15. pascal void main(paramPtr)
  16.     XCmdBlockPtr    paramPtr;
  17. {
  18.     short    flashCount,again;
  19.     GrafPtr    port;
  20.     Str31    str;
  21.  
  22.     /* First param is flash count.  Convert it to a pascal string */
  23.     ZeroToPas(paramPtr,(char *)*(paramPtr->params[0]),(StringPtr)&str);
  24.     /* Convert the string to a number */
  25.     flashCount = StrToNum(paramPtr,&str);
  26.     GetPort(&port);
  27.     for (again = 1; again <= flashCount; again++)
  28.         {
  29.             InvertRect(&port->portRect);
  30.             InvertRect(&port->portRect);
  31.         }
  32. }
  33.  
  34.  
  35.